#!/usr/local/bin/perl
use strict;
use warnings;

@home = ("couch", "chair", "table", "stobe");
($potato, $lift, $tennis, $pipe) = @home;

print "$lift\n";