sub sch_cit

{
use strict;
use warnings;


my @data = <DATA>     ;

my $temp = $data[$#data-1];
$data[$#data-1] = $data[$#data];
$data[$#data] = $temp;

print @data;


_ _DATA_ _
$sc:(.+)
$tic:(.+)
<cit>(.+)
}