in reply to please solve this

Here is a start
#!/usr/bin/perl -- use strict; use warnings; my @keyboard; $keyboard[0][0] = "E"; ... Instruct( \@keyboard, 'RFGM' ); sub Instruct { my( $keyboard, $input ) = @_; ... }