#!/usr/bin/perl
use warnings;
use strict;
use Perl6::Form;

my $student_data;

chomp( my $title = <DATA> );    

push @{$student_data}, [split] while <DATA>;

print "\n\nFIRST TABLE:\n";
print form
  "==============================================",
  "| STD_NAME | STD_NUM | SUB_A | SUB_B | SUB_C |",
  "==============================================";
print form
  "| {<<<<<<} |{||||||} | {||||}|{|||||}|{|||||}|",
  $_->[0], $_->[1], $_->[2], $_->[3], $_->[4]
  for @$student_data;

use Text::Table;
print "\n\nSECOND TABLE:\n";

my $plain_table = Text::Table->new( split /\s+/, $title );

$plain_table->load( [@$_] ) for @$student_data;

print $plain_table;

__DATA__
student_name	student_number	subject_A	subject_B	subject_C
zadok           3006            45		67		--	
mechi           2917            67		89		45
judas           3010		20		--		12
temin           1122		60		56		90

##</code><code>##

FIRST TABLE: 
==============================================
| STD_NAME | STD_NUM | SUB_A | SUB_B | SUB_C |
==============================================
| zadok    |  3006   |   45  |  67   |  --   |
| mechi    |  2917   |   67  |  89   |  45   |
| judas    |  3010   |   20  |  --   |  12   |
| temin    |  1122   |   60  |  56   |  90   |


SECOND TABLE:
student_name student_number subject_A subject_B subject_C
zadok        3006           45        67        --       
mechi        2917           67        89        45       
judas        3010           20        --        12       
temin        1122           60        56        90