for (0 .. 5) {
    my $frame = $fmain->Frame(-borderwidth => 0)->pack(-side => 'left');
    $frame->Label( -text => "Frame " . \$whichframe[$_] )->pack;
    $frame->Button(-text => "Delete frame",
                   -command => sub { rmv($frame) },
                  )->pack;
}