#!/usr/bin/perl
@_=(13,16,15,24,25,6,4,1,24,18,3,21,25,2,3,21,26,25,18,6,27,8,3,21);open _,$0;@a=<_>;@k=$a[1]=~/(@.*;)(\w)(\w)(\w)(\w)( _,\$\w;@)(\w)(=<_>;\@)(\w)(=\$)(\w)(\[\d\]=~)(\/.*\/;\$)(\w)(=)(\w)(\w)(\w\{@)(\w)(=\@_;)(\w)(\w)(\w)(\w)(\w)( )(\w)(\w)(\(.*\).*@)(\w)(\}.*@)(\w)/;$j=sub{@h=@_;print lc($k[$_]) for @h};$j->(@_);