my $thing = 3.5;
print $array[ $thing ];
my $test =  'Some text' . $thing;

##</code><code>##

sub ^asText {
   my $self = shift;
   return sprintf "...", $self.attr1, $self.attr2...
}

sub ^asAnimal {
    my $self = shift; 
    return $self.Animal;
}