Help for this page

Select Code to Download

Select or download this

$ cat t.pl
#!/usr/bin/perl
...
        print "Letter $letter not available\n";
    }
}

Select or download this

$ perl t.pl
$VAR1 = {
...
Found f!
Found g!
Letter h not available