...
my @buttons;
for my $i (0..5){
    push @buttons,
        $mw->Button(
            -text => $row[$i],
            -command => [ \&buttonpress, $row[$i] ],
            )->pack;
}

sub buttonpress{
    my $btn = shift;
    print "button $btn pressed\n";
}