# Closure - BROKEN!
$frame[$a] -> Button(-text => "Delete frame", -command => sub { rmv( $frame[$a]) })->pack;
# Array ref
$frame[$a] -> Button(-text => "Delete frame", -command => [   \&rmv, $frame[$a] ] )->pack;
}

sub rmv {
    shift->destroy;
}