Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Swap array value by using the sub range
#!/usr/bin/perl -w
use strict;
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
print @months;
@months[3,4] = @months[4,3];
print @months;