#!usr/bin/perl

use strict;

my $guess;

print "Enter your number...\n";
chomp($guess = <STDIN>);

print "card of $guess is ", &card($guess), "\n";

print "\nRockstar Programming Inc. All Rights Reserved\n";

## subroutines ###

sub card {

my @card_map = qw(zero one two three four five six seven eight nine);
my $guess;
my $i = 0;
our $num;
our $negative = "negative";

local($num) = @_;

 if ($card_map[$num]) {
	$card_map[$num]; # return value

 } else {
	$num; # return value

 } # end if


 if ($num > 0) {
	$num = - $num;

 } # end if

 if ($card_map[$num]) {
	$negative . $card_map[$num]; # return value

 } else {
	$negative . $num; # return value

 } # end if

} # end sub