use File::Copy qw/ move /;

...
# in der sub wanted:
my $dir = "/mp3dir/$artist/$track";
mkdir ($dir);
# in $_ befindet sich der dateiname ohne pfad.
# diese datei willst du verschieben nach /mp3dir/$artist/$track/
move($_, "$dir/$_");