Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- use strict;
- use warnings;
- my @equipos = qw[ real atletico getafe rayo leganes alcorcon ];
- my @segunda = splice @equipos, -2;
- print "Primera: @equipos\n";
- print "Segunda: @segunda\n";
- splice @equipos, 2, @equipos, qw[sevilla valencia farsa bilbado];
- my @r = reverse @equipos;
- $"="::"; print "Tabla: @r\n";
- # uc!!!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement