#!/usr/bin/perl

use Env;
use strict;
use warnings;

my @passed = @ARGV;

my $pedfile = $passed[0] .".ped";
my $rawfile = $passed[0]. ".ind";

open(RAWDATA, ">", "$rawfile") or die $!;
open (PED, "<", "$pedfile") or die $!;

my @line;

while(<PED>) 
	{
        @line = split('\t', $_);
        print RAWDATA "$line[1]\t$line[0]\t$line[2]\t$line[3]\t$line[4]\t$line[5]\n";
	}

close PED;
close RAWDATA;