use MP3::Info;

for my $file (<*.mp3>) {
   my $id3 = get_mp3tag($file);
   my $dir = lc $id3->{ALBUM};
   $dir =~ tr/ /_/;
   system mv => $file => $dir;
}