Good examples of perl cod

Hey guise im doing some perl code first time in a while you know?

Well can you show me yours like variable naming/defining subs etc.

Some nice nomenclature pls thanks.

VALID PERL COD

#!/usr/bin/env perl

                        my(#$r
                      %primate,           #::
                     $monolith,         $evolution,               $contact,
         );$_='primate->throw ("Bone" );goto;$$monolith;      bless %primate            #%co
     ;$evolution=~m/?+*/;  #/*+?/m~=  *humanIntellect  ++;   $Discovery =~ m    b  . [ [::]
    #=~ m/?+*/; #/*+?/m ~= ("Daisy"); ; $evolution;$$monolith shift  @spaceTime  ;  {}=~
  >>=<>=   <>=<>=(-)]. ; require  2001; exists($malfunction )  # open  $podBayDoors  or
 die;HAL-> sing ("Daisy");sleep()*' ;my@universe= qw(15 1 6 4  35 1  12  2   23 2  14 1
         8 2 0 5 25 1 39 3 7 2);my $God ;$monolith="******" ;  my  @spaceTime =  split
   /;/,$_ ; while (my($space,$time )= splice(@universe,0 ,2)){ my $journey =      shift
        @spaceTime;eval" $journey;"; $contact= substr ($@, $space , $time );        if(
             $space!=(("dimension" =~ // ) +1 +4+9)){          print$contact;
                  next;} $child; my$starChild=                    $contact;
                      print uc $starChild}
                        # $[
                         $_
                          ;