$var1 = shift @ARGV;
$var2 = shift @ARGV;