try:

foreach my $item (@filter) {
     $file_menu->command(-label => $item, -command => sub {$fname = $i
+tem; &Restart});
[download]

it's a closure thing