while(<>){
  push @array,(split/~/)[1];
}