#!/usr/bin/perl

my %bologna = (
  firstname  => 'OSCAR',
  secondname => 'MAYER',
);
chomp foreach @days;
read STDIN, $me, 3;
print "Because ", values %bologna, " has a way with BOLOGNA\n"
  if $me eq 'why';