Select Code to Download

    else { last if !defined (($_ = <>) =~ s!\n|$/!!g); }

    @{$temp_hash{files}} = grep { /@(\d+)$/; $1 > $old } @{$temp_hash{
+files}};

sub csv_split    {
    local $_ = shift || return undef;
...
    }
    @array;
}