#!perl

$var1 = "Dean\n";
chomp $var1;
$var2 = "Eva\n";
chomp $var2;

open (file, ">>myfile.txt");
print file "$var1==$var2\n";
close (file);