sub print_shape {
    
   my $self = shift;      
   print $self->{shape}{line1} , "\n",
         $self->{shape}{line2} , "\n",
         $self->{shape}{line3} , "\n";   

}