Implementing Queue, Data Structure in Perl

This is the source code for Implementing Queue, Data Structure in Perl.
#!/usr/bin/perl5
my $moreNos=undef;my @queue;my $elem=undef;
do
{
print "\n1. Insert Element\n";
print "2. Delete Element\n";
print "3. Display\n";
print "4. Exit\n";
print "Enter choice: ";
chomp ($choice=<stdin>);
if ($choice eq "1")
{ &insertElem();
} elsif ($choice eq "2")
{ &
deleteElem();
}
elsif ($choice eq "3")
{
&display();
}
else
{
exit;
}
}while($choice ne "4");

sub insertElem
{
print "Enter the no: ";
chomp ( $elem =<stdin> );
push(@queue,$elem);
chomp @queue;
}

sub deleteElem
{
if($#queue >= 0)
{
print "\nDeleted $queue[0]\n";
shift(@queue);
}
else
{
print "\nQueue Empty\n";
}
}
sub display{ if($#queue >=0) { print "\n@queue\n"; } else { print "\nQueue Empty\n"; }}