my @split_input_name=split('.out',$source,);

That will probably give the wrong result if the basename of your file contains the string "out" (for example, if your file name is "stout.out"). You should escape the period because the 1st arg to split is a regular expressions, and . has special meaning. Consider using this instead:

my @split_input_name = split(/\.out/, $source);
[download]

See also File::Basename