#!/usr/bin/perl -w

use strict;

my            $i=0;                 my              $Wave; 
 my         $Row;${$_{         (int((sin $i)     *4)+4)}}[int   
 $i       *6]=     "*"         while    (($i   +=0.1)    <79);
  my     @lal=      sort      keys       %_; $Wave.=      ($Row
  ==4) ?join("",    ' 'x8,  'Just'        ,' 'x14,      'Another',
   ' 'x12,           'Perl',' '             x15,          'Hacker',


##This is PI ;))###
"\n"):(join "",(map 
  {($_       {$Row}
  [$_]       )?'*':
  ' '}      (0..79))
   ,          "\n")
  while      ($Row=
  shift       @lal); 
   $_=       "$Wave
   \n";       print;