use File::Copy;
my @files_to_move = split(/\s+/, $fil_nm);  # assuming $fil_nm contains a space-separated list of files to move
move($_, './reports') for @files_to_move;