#!/usr/bin/perl -w
use strict;
use Cheesy qw(map grep);

my (@foo,  # tested
    @bar); # desired
@foo = (1 .. 5);
map {$_ * 10} @foo;
@bar = (10, 20, 30, 40, 50);
print "@foo\n";
print "Should be: @bar\n";

@foo = (1 .. 5);
Cheesy::map {$_ * 10} @foo;
@bar = (10, 20, 30, 40, 50);
print "@foo\n";
print "Should be: @bar\n";

@foo = qw(fish chicken cheese);
grep {$_ eq 'cheese'} @foo;
@bar = ('cheese');
print "@foo\n";
print "Should be: @bar\n";

@foo = qw(fish chicken cheese);
Cheesy::grep {$_ eq 'cheese'} @foo;
@bar = ('cheese');
print "@foo\n";
print "Should be: @bar\n";