#!usr/bin/perl-w print"\n Type the name of data file: "; $data=; chomp $data; unless (open (DATA,$data)){ print "\n\n Couldn't open file $data."; } my %vals; while ( ) { my ($identifier,$value) = split /\s*=\s*/; $vals {$identifier} = $value; } close DATA; $calculation1=$vals{x1}*$vals{y1}; print"\n\n 1st result=$calculation1;\n\n"; exit;