#!/usr/bin/perl
#require poop;#use poop;#poop poop;
my$poop=["poop","poop","poop","poop"];
my@poop=("poop","poop","poop","poop");
my%poop=("poop","poop","poop","poop");
sub poop{
    print"poop,",$poop  #poop....
    [0],",",reverse($poop[0]),",",$poop
    { sprintf($poop
->  [1]
    ,$poop=~s/(poop)/$poop/,
    ($poop->[$poop[$poop{$poop->[$poop[$poop{poop}]]}]],
     $poop[$poop{$poop->[$poop[$poop{$poop->[0]}]]}],
     $poop{$poop->[$poop[$poop{$poop->[$poop[0]]}]]},
     $poop->[$poop[$poop{$poop->[$poop[$poop{poop}]]}]])=
    ($poop{$poop->[$poop[$poop{$poop->[$poop[0]]}]]},
     $poop->[$poop[$poop{$poop->[$poop[$poop{poop}]]}]],
     $poop->[$poop[$poop{$poop->[$poop[$poop{poop}]]}]],
     $poop[$poop{$poop->[$poop[$poop{$poop->[0]}]]}])
     ) }
    ,"\n";
} poop;