#!/usr/bin/perl
$roses{'r'} = 'red';
$violets{'r'} = 'blue';
my @hands = ( 'on',  'your',  'laptop');
print "Ok with you?\n";
my $love = <>;

if( chomp $love ne Ok){
$reality = 1;
print "Aw come on, pretty please....smoocums,woocums,
daddy has a diamond\n";
}