Select Code to Download

sub main {
    my $file = 'new_text.csv';
...


main();

#I'm expecting an output like 
...
$VAR2 = $VAR1;
$VAR3 = $VAR1;
$VAR4 = $VAR1;