#!/usr/bin/perl



package Foo;

sub new {
    my $class = shift;
    return bless { engine => "engine", wheels => "wheels" }, $class;
}

sub get_as_array {
    my $self = shift;
    return [ $self->{engine}, $self->{wheels} ];
}

1;

my $foo = Foo->new;
print $foo->get_as_array;
[download]