my ($line1, $line2, $line3, $author) = split ":", $poems{$number};
print "  $line1\n$line2\n   $line3\n\t$author\n";