পার্ল

my $text = "হ্যালো বিশ্ব";

print $text;

my @fruits = ("আপেল", "আঙ্গুর", "কমলা", "কলা");

print $fruits[0], "\n";
print $fruits[1];

my %user = (
  "নাম" => "মোঃ আরিফ",
  "দেশ" => "বাংলাদেশ"
);

print $user{"নাম"}, "\n";
print $user{"দেশ"};

my %user = (
  "নাম" => "মোঃ আরিফ",
  "তথ্য" => {
    "স্বপ্ন" => "সফটওয়্যার ইঞ্জিনিয়ার",
    "দেশ" => "বাংলাদেশ"
  }
);

print $user{"নাম"}, "\n";
print $user{"তথ্য"}{"স্বপ্ন"}, "\n";
print $user{"তথ্য"}{"দেশ"};

my @users = (
  [10, "তানিম", "বাংলাদেশ"],
  [11, "জোহান", "নেদারল্যান্ড"],
  [12, "হামিদ", "আফগানিস্তান"],
  [13, "সাকিব", "বাংলাদেশ"]
);

print $users[0][0], "\n";
print $users[0][1], "\n";
print $users[0][2];