my $fee="FEE"
my $fi="FI"
my $fo="FO"
my @fum=qw / fee fi fo fum /