change directory help in perl

[Sayed, Irfan (Irfan)]

Hi ,
 
I have written following script. Problem with the script is that it is
not changing the directory as per the foreach loop and because of that
cleartool command is failing. can somebody please help.
 
Here is the script.
 
#!/usr/bin/perl -w
@arr = `cleartool lsvob -s`;
foreach(@arr)
{
  `cd $_`;
my $dir=system(pwd);
 print "$dir\n";
`cleartool mktrtype -replace -element -all -nc -postop uncheckout
-execunix "/us
r/bin/perl
/usr/add-on/puccase_admin/viewtools/unixbin/triggers/empty_br.pl" -ex
ecwin "ccperl.exe
\\\\punas01\\puccase_admin\\viewtools\\unixbin\\triggers\\empt
y_br.pl" postop_unco_1`;

Regards
Irfan.