my $pbindings = {
        'Key-j'  => sub { $c->move($rect, -5,  0) },
        'Key-l'  => sub { $c->move($rect,  5,  0) },
        'Key-i'  => sub { $c->move($rect,  0, -5) },
        'comma'  => sub { $c->move($rect,  0,  5) },
        'Key-u'  => sub { $c->move($rect, -5, -5) },
        'Key-o'  => sub { $c->move($rect,  5, -5) },
        'Key-m'  => sub { $c->move($rect, -5,  5) },
        'period' => sub { $c->move($rect,  5,  5) },
    };
                                                                                
    map { $mw->bind("<$_>" => $pbindings->{$_}) } (keys %$pbindings);