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

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