UNIX for Dummies Questions & Answers

@array = qw (chr02 chr02 chr02 chr02 chr02 chr03 chr03 chr04 chr04 chr05 chr05 chr05 chr07 chr07)

@array = qw (chr02 _ _ _ _ chr03 _ chr04 _ chr05 _ _ chr07 _)

@array = map {$x=($x{$_})?"_":$_;$x{$_}=1;($x)} @array;

@arrchr = qw(chr02 chr02 chr02 chr02 chr02 chr03 chr03 chr04 chr04 chr05 chr05 chr05 chr07 chr07 chr07);

@arrcov = qw(45 86 112 62 107 50 94 72 65 89 95 119 97 109 100);

@chr02 =qw (45 86 112 62 107) #first 5 entries from @arrcov,
@chr03 =qw (50 94) #next 2 entries from @arrcov,
@chr04 =qw (72 65) #next 2 entries from @arrcov,
@chr05 =qw (89 95 119) #next 3 entries from @arrcov,
@chr07 =qw (97 109 100) #last 3 entries from @arrcov

#!/usr/bin/perl
@arrchr = qw(chr02 chr02 chr02 chr02 chr02 chr03 chr03 chr04 chr04 chr05 chr05 chr05 chr07 chr07 chr07);
@arrcov = qw(45 86 112 62 107 50 94 72 65 89 95 119 97 109 100);
for ($i=0;$i<=$#arrchr;$i++){
  push @{$h{"$arrchr[$i]"}}, $arrcov[$i];
}
print "chr02: @{$h{chr02}}\n";
print "chr03: @{$h{chr03}}\n";