#!/usr/bin/perl

use strict;
use warnings;
use File::Find;
my $dir = shift || './';
find(\&test, $dir);

sub test{
my %alphabet = ( php => ["<?php", "?>", "echo", "print", "print_r"],
perl => ["#!", "usr", "bin", "perl", "print", "stdin"],
cplusplus => ["#include", "iostream", "stdio", "namespace", "strings", "cout", "cin"]);

print $alphabet{php}->[1];
}