package SecretHandshake;
use strict;
use warnings;
use Exporter qw<import>;
our @EXPORT_OK = qw<handshake>;

sub handshake {
  my ($number) = @_;
  my %handshake;
  @handshake{ (0 .. 4) } = (
        "wink",
        "double blink",
        "close your eyes",
        "jump"
  );
  my @events;
  my @code = split //, scalar reverse sprintf ("%05b", $number);
  
  foreach (0 .. 3) {
        push @events => $handshake{ $_ } if $code[ $_ ];
  }

  @events = reverse @events if $code[ 4 ];

  return \@events;
}

1;