Hi,

This must be simple but I can't get it to work. I have the follow code to insert the contents of a file into an array and then I want to print the value of a container where all of the records in another container within the array start with 33 (that's not all I want to do but it is all I want to do right now).

$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.

Rewrite

if $destination /^33/;

if ( $destination =~ /^33/ )

Perfect, many thanks for your help