Shell Programming and Scripting

$file_name="/home/file1";
open(DATA, $file_name) || die ("Could not open file!");
@deliver_data=<DATA>;
close(DATA);

foreach $line (@deliver_data)
{
chop($line);
($id,$day,$ref,$originator,$destination,$type,$code)=split(/,/,$line);
}

if $destination /^33/;
{
print "$code";
}

syntax error at ./andrews_perl_foreign_calc.pl line 27, near "if $destination "
Execution of ./andrews_perl_foreign_calc.pl aborted due to compilation errors.

if $destination /^33/;

if ( $destination =~ /^33/ )