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

our $spud="Wow!";
our @spud=qw(idaho russet);
*potato=*spud;
print $potato;
print "@potato"