my ($src, $dest) = @_;

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use File::Copy 'move';

my ($s, $d) = reverse qw{Temp Phone};

mv_tmp_to_phone($s, $d);

sub mv_tmp_to_phone {
    my ($src, $dest) = @_;

    system ls => '-lR';

    my @files = glob("$src/*");

    print "$_\n" for @files;

    move($_, $dest) for @files;

    system ls => '-lR';
}

##</code><code>##

ken@titan ~/tmp/pm_11154302_move_files
$ ./move_to_phone_2.pl
.:
total 2
-rwxr-xr-x 1 ken None 337 Sep  8 18:05 move_to_phone.pl
-rwxr-xr-x 1 ken None 335 Sep  9 07:07 move_to_phone_2.pl
drwxr-xr-x 1 ken None   0 Sep  8 18:05 Phone
drwxr-xr-x 1 ken None   0 Sep  8 18:05 Temp

./Phone:
total 0
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file1
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file2

./Temp:
total 0
Phone/file1
Phone/file2
.:
total 2
-rwxr-xr-x 1 ken None 337 Sep  8 18:05 move_to_phone.pl
-rwxr-xr-x 1 ken None 335 Sep  9 07:07 move_to_phone_2.pl
drwxr-xr-x 1 ken None   0 Sep  9 07:07 Phone
drwxr-xr-x 1 ken None   0 Sep  9 07:07 Temp

./Phone:
total 0

./Temp:
total 0
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file1
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file2

##</code><code>##

#!/usr/bin/env perl

use v5.36;

use File::Copy 'move';

my ($source, $destination) = qw{Temp Phone};

mv_tmp_to_phone($source, $destination);

sub mv_tmp_to_phone ($src, $dest) {
    system ls => '-lR';

    my @files = glob("$src/*");

    say for @files;

    move($_, $dest) for @files;

    system ls => '-lR';
}

##</code><code>##

ken@titan ~/tmp/pm_11154302_move_files
$ ./move_to_phone_3.pl
.:
total 3
-rwxr-xr-x 1 ken None 337 Sep  8 18:05 move_to_phone.pl
-rwxr-xr-x 1 ken None 335 Sep  9 07:07 move_to_phone_2.pl
-rwxr-xr-x 1 ken None 319 Sep  9 08:14 move_to_phone_3.pl
drwxr-xr-x 1 ken None   0 Sep  9 07:07 Phone
drwxr-xr-x 1 ken None   0 Sep  9 07:07 Temp

./Phone:
total 0

./Temp:
total 0
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file1
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file2
Temp/file1
Temp/file2
.:
total 3
-rwxr-xr-x 1 ken None 337 Sep  8 18:05 move_to_phone.pl
-rwxr-xr-x 1 ken None 335 Sep  9 07:07 move_to_phone_2.pl
-rwxr-xr-x 1 ken None 319 Sep  9 08:14 move_to_phone_3.pl
drwxr-xr-x 1 ken None   0 Sep  9 08:15 Phone
drwxr-xr-x 1 ken None   0 Sep  9 08:15 Temp

./Phone:
total 0
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file1
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file2

./Temp:
total 0