$user = $ENV{USER};
$ENV{user} = $user; # Case sensitivity. Now $user should
                    # be visible to your script snippets

foreach $line (@lines) {
    system( $line );
}