#!/usr/bin/perl -w 
#####################################################

use strict;
use Tie::File;

tie my @ry,"Tie::File","myfile.txt";

my @data=(
    [ 'apple',12.2,'red' ],
    [ 'bannana', 33.3,'yellow'],
    [ 'pineapple', 17.2,'green']
    );

foreach my $dat(@data){
    push @ry,join(",",@{$dat});
}

untie @ry;

tie @ry,"Tie::File","myfile.txt";

my $t= $ry[1];
$ry[1]=$ry[0];
$ry[0]=$t;

untie @ry;




##</code><code>##

bannana,33.3,yellow
apple,12.2,red
pineapple,17.2,green