#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $h = bless ['Hello'], 'World';
print Dumper $h;