help with awk command in perl

[Sayed, Irfan \(Irfan\)]

Hi All,
 
I have a following script in perl in which i am using awk command but it
is not getting executed properly.
 
 
# /usr/atria/bin/Perl -w
 
use strict;
use warnings;
 
my $fname  = "/tmp/checkvob_log";
open(FILE,">>$fname");
 

my $CT = "/usr/atria/bin/cleartool";
 
my @vob_list = `$CT lsvob -s`;
 
my @vob_list1 = `$CT lsvob`;
 
print FILE @vob_list1;
 
my $cmd1 = "awk '{print $3}' /tmp/checkvob_log";
 
my @vob_path = qx{$cmd1};
 
print @vob_list;
print @vob_path;

 
can anybody please help.
 
Regards
Irfan.