my $line = lc $_[0];
# and 
$another_line = $_[0];