sub renamefiles {
    my ($mp3file, $mp3dir) = @_;
    my @mp3file = @$mp3file;
    my @mp3dir = @$mp3dir;
    my $i=0;
    foreach my $e (@mp3file) {
        $curfile="$mp3dir[$i]\\$mp3file[$i]";
        chomp($curfile);
        my $mp3 = MP3::Tag->new($curfile);
        my ($title, $track, $artist) = $mp3->autoinfo();
        print ("$curfile: $track. $artist - $title.mp3\n");
        print ("|$mp3dir[$i]::$mp3file[$i]|\n");
        chdir($mp3dir[$i]);
        rename("g.mp3", "j.mp3") or die "$!";
        $i++;
    }
}