#!/usr/bin/perl -w
#slots
use warnings;

if(@ARGV !=1) {

print "Usage: perl $0 <amount>\n";

exit;}
($amount) = @ARGV;




@double=(4, 6, 8, 10, 12, 14, 16);
@five=(5, 25, 35, 45, 55, 65, 75);
@color=(1, 11, 31,51, 71, 81, 91);
@jackpot=(42, 88, 121);
sub lucky {
	return int(rand(75) + 1);
		}
$result=lucky();

$double=grep $_ eq $result,@lucky;
$five=grep $_ eq $result,@five;
$color=grep $_ eq $result,@color;
$jackpot=grep $_ eq $result,@jackpot;
if ($double) {
	print "Try again, you kept your points $amount\n" }
	elsif ($five) {
	$win = 5*$amount;
	print "Good! Your money x 5! You win $win points\n" }
	elsif ($color) {
	$win = 50*$amount;
	print "C-O-L-O-R!!! Number:[$result] and you win $win points\n" }
	elsif ($jackpot) { 
	$win = 500*$amount;
	print "JACKPOT WINNER SUPER DUPER PLAYER! YOU WON $win !!!\n " }
		
else { print "Was a bad number! [$result]\n" }
#End of slots